﻿Public Partial Class frm_ValidacionIngresoDatos
    Inherits System.Web.UI.Page

    Dim iNroCarga As Integer
    Dim szPoliza As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            Me.txtIDSeguro.Text = Request("IDSeguro")
            Beneficiarios()
            ObtieneDatosTMP()
            ObtieneCarga()
        End If
    End Sub
    Sub Beneficiarios()
        cmbParentescoCarga1.SelectedValue = "000"
        cmbParentescoCarga2.SelectedValue = "000"
        cmbParentescoCarga3.SelectedValue = "000"
        cmbParentescoCarga4.SelectedValue = "000"
        cmbParentescoCarga5.SelectedValue = "000"
        cmbParentescoCarga6.SelectedValue = "000"
        ViewState("Carga") = Request("Carga")

        If ViewState("Carga") = 0 Then
            Cargas.Visible = False
            Cargas.UpdateAfterCallBack = True
        ElseIf ViewState("Carga") = 1 Then
            txtRutCarga2.Visible = False
            txtRutCarga2.UpdateAfterCallBack = True
            txtNombreCarga2.Visible = False
            txtNombreCarga2.UpdateAfterCallBack = True
            txtApPCarga2.Visible = False
            txtApPCarga2.UpdateAfterCallBack = True
            txtApMCarga2.Visible = False
            txtApMCarga2.UpdateAfterCallBack = True
            txtFNCarga2.Visible = False
            txtFNCarga2.UpdateAfterCallBack = True
            LblCargaFecha2.Visible = False
            LblCargaFecha2.UpdateAfterCallBack = True
            cmbParentescoCarga2.Visible = False
            cmbParentescoCarga2.UpdateAfterCallBack = True

            txtRutCarga3.Visible = False
            txtRutCarga3.UpdateAfterCallBack = True
            txtNombreCarga3.Visible = False
            txtNombreCarga3.UpdateAfterCallBack = True
            txtApPCarga3.Visible = False
            txtApPCarga3.UpdateAfterCallBack = True
            txtApMCarga3.Visible = False
            txtApMCarga3.UpdateAfterCallBack = True
            txtFNCarga3.Visible = False
            txtFNCarga3.UpdateAfterCallBack = True
            LblCargaFecha3.Visible = False
            LblCargaFecha3.UpdateAfterCallBack = True
            cmbParentescoCarga3.Visible = False
            cmbParentescoCarga3.UpdateAfterCallBack = True

            txtRutCarga4.Visible = False
            txtRutCarga4.UpdateAfterCallBack = True
            txtNombreCarga4.Visible = False
            txtNombreCarga4.UpdateAfterCallBack = True
            txtApPCarga4.Visible = False
            txtApPCarga4.UpdateAfterCallBack = True
            txtApMCarga4.Visible = False
            txtApMCarga4.UpdateAfterCallBack = True
            txtFNCarga4.Visible = False
            txtFNCarga4.UpdateAfterCallBack = True
            LblCargaFecha4.Visible = False
            LblCargaFecha4.UpdateAfterCallBack = True
            cmbParentescoCarga4.Visible = False
            cmbParentescoCarga4.UpdateAfterCallBack = True

            txtRutCarga5.Visible = False
            txtRutCarga5.UpdateAfterCallBack = True
            txtNombreCarga5.Visible = False
            txtNombreCarga5.UpdateAfterCallBack = True
            txtApPCarga5.Visible = False
            txtApPCarga5.UpdateAfterCallBack = True
            txtApMCarga5.Visible = False
            txtApMCarga5.UpdateAfterCallBack = True
            txtFNCarga5.Visible = False
            txtFNCarga5.UpdateAfterCallBack = True
            LblCargaFecha5.Visible = False
            LblCargaFecha5.UpdateAfterCallBack = True
            cmbParentescoCarga5.Visible = False
            cmbParentescoCarga5.UpdateAfterCallBack = True

            txtRutCarga6.Visible = False
            txtRutCarga6.UpdateAfterCallBack = True
            txtNombreCarga6.Visible = False
            txtNombreCarga6.UpdateAfterCallBack = True
            txtApPCarga6.Visible = False
            txtApPCarga6.UpdateAfterCallBack = True
            txtApMCarga6.Visible = False
            txtApMCarga6.UpdateAfterCallBack = True
            txtFNCarga6.Visible = False
            txtFNCarga6.UpdateAfterCallBack = True
            LblCargaFecha6.Visible = False
            LblCargaFecha6.UpdateAfterCallBack = True
            cmbParentescoCarga6.Visible = False
            cmbParentescoCarga6.UpdateAfterCallBack = True
        ElseIf ViewState("Carga") = 2 Then
            txtRutCarga3.Visible = False
            txtRutCarga3.UpdateAfterCallBack = True
            txtNombreCarga3.Visible = False
            txtNombreCarga3.UpdateAfterCallBack = True
            txtApPCarga3.Visible = False
            txtApPCarga3.UpdateAfterCallBack = True
            txtApMCarga3.Visible = False
            txtApMCarga3.UpdateAfterCallBack = True
            txtFNCarga3.Visible = False
            txtFNCarga3.UpdateAfterCallBack = True
            LblCargaFecha3.Visible = False
            LblCargaFecha3.UpdateAfterCallBack = True
            cmbParentescoCarga3.Visible = False
            cmbParentescoCarga3.UpdateAfterCallBack = True

            txtRutCarga4.Visible = False
            txtRutCarga4.UpdateAfterCallBack = True
            txtNombreCarga4.Visible = False
            txtNombreCarga4.UpdateAfterCallBack = True
            txtApPCarga4.Visible = False
            txtApPCarga4.UpdateAfterCallBack = True
            txtApMCarga4.Visible = False
            txtApMCarga4.UpdateAfterCallBack = True
            txtFNCarga4.Visible = False
            txtFNCarga4.UpdateAfterCallBack = True
            LblCargaFecha4.Visible = False
            LblCargaFecha4.UpdateAfterCallBack = True
            cmbParentescoCarga4.Visible = False
            cmbParentescoCarga4.UpdateAfterCallBack = True

            txtRutCarga5.Visible = False
            txtRutCarga5.UpdateAfterCallBack = True
            txtNombreCarga5.Visible = False
            txtNombreCarga5.UpdateAfterCallBack = True
            txtApPCarga5.Visible = False
            txtApPCarga5.UpdateAfterCallBack = True
            txtApMCarga5.Visible = False
            txtApMCarga5.UpdateAfterCallBack = True
            txtFNCarga5.Visible = False
            txtFNCarga5.UpdateAfterCallBack = True
            LblCargaFecha5.Visible = False
            LblCargaFecha5.UpdateAfterCallBack = True
            cmbParentescoCarga5.Visible = False
            cmbParentescoCarga5.UpdateAfterCallBack = True

            txtRutCarga6.Visible = False
            txtRutCarga6.UpdateAfterCallBack = True
            txtNombreCarga6.Visible = False
            txtNombreCarga6.UpdateAfterCallBack = True
            txtApPCarga6.Visible = False
            txtApPCarga6.UpdateAfterCallBack = True
            txtApMCarga6.Visible = False
            txtApMCarga6.UpdateAfterCallBack = True
            txtFNCarga6.Visible = False
            txtFNCarga6.UpdateAfterCallBack = True
            LblCargaFecha6.Visible = False
            LblCargaFecha6.UpdateAfterCallBack = True
            cmbParentescoCarga6.Visible = False
            cmbParentescoCarga6.UpdateAfterCallBack = True
        End If
    End Sub

    Private Sub ObtieneCarga()
        'Dim exec As New BusinessCatastrofico.TMP_VentaSeguro
        Dim exec As New BusinessCatastrofico.Cargas
        Dim rp As New NetResponse.MsSqlServer
        exec._IDSeguro = txtIDSeguro.Text
        exec.Get_Carga(rp)

        If rp.TieneDatos Then

            txtRutCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_1")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_1")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_1")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_1"))
            txtRutCarga1.UpdateAfterCallBack = True
            txtNombreCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_1")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_1"))
            txtNombreCarga1.UpdateAfterCallBack = True
            txtApPCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_1")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_1"))
            txtApPCarga1.UpdateAfterCallBack = True
            txtApMCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_1")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_1"))
            txtApMCarga1.UpdateAfterCallBack = True
            txtFNCarga1.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_1") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_1"))
            txtFNCarga1.UpdateAfterCallBack = True
            LblCargaFecha1.Visible = False
            LblCargaFecha1.UpdateAfterCallBack = True
            cmbParentescoCarga1.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_1")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_1"))
            cmbParentescoCarga1.UpdateAfterCallBack = True

            txtRutCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_2")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_2")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_2")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_2"))
            txtRutCarga2.UpdateAfterCallBack = True
            txtNombreCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_2")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_2"))
            txtNombreCarga2.UpdateAfterCallBack = True
            txtApPCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_2")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_2"))
            txtApPCarga2.UpdateAfterCallBack = True
            txtApMCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_2")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_2"))
            txtApMCarga2.UpdateAfterCallBack = True
            txtFNCarga2.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2"))
            txtFNCarga2.UpdateAfterCallBack = True
            LblCargaFecha2.Visible = False
            LblCargaFecha2.UpdateAfterCallBack = True
            cmbParentescoCarga2.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_2")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_2"))
            cmbParentescoCarga2.UpdateAfterCallBack = True


            txtRutCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_3")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_3")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_3")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_3"))
            txtRutCarga3.UpdateAfterCallBack = True
            txtNombreCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_3")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_3"))
            txtNombreCarga3.UpdateAfterCallBack = True
            txtApPCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_3")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_3"))
            txtApPCarga3.UpdateAfterCallBack = True
            txtApMCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_3")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_3"))
            txtApMCarga3.UpdateAfterCallBack = True
            txtFNCarga3.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_3")= "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2"))
            txtFNCarga3.UpdateAfterCallBack = True
            LblCargaFecha3.Visible = False
            LblCargaFecha3.UpdateAfterCallBack = True
            cmbParentescoCarga3.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_3")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_3"))
            cmbParentescoCarga3.UpdateAfterCallBack = True


            txtRutCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_4")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_4")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_4")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_4"))
            txtRutCarga4.UpdateAfterCallBack = True
            txtNombreCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_4")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_4"))
            txtNombreCarga4.UpdateAfterCallBack = True
            txtApPCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_4")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_4"))
            txtApPCarga4.UpdateAfterCallBack = True
            txtApMCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_4")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_4"))
            txtApMCarga4.UpdateAfterCallBack = True
            txtFNCarga4.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_4") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_4"))
            txtFNCarga4.UpdateAfterCallBack = True
            LblCargaFecha4.Visible = False
            LblCargaFecha4.UpdateAfterCallBack = True
            cmbParentescoCarga4.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_4")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_4"))
            cmbParentescoCarga4.UpdateAfterCallBack = True


            txtRutCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_5")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_5")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_5")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_5"))
            txtRutCarga5.UpdateAfterCallBack = True
            txtNombreCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_5")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_5"))
            txtNombreCarga5.UpdateAfterCallBack = True
            txtApPCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_5")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_5"))
            txtApPCarga5.UpdateAfterCallBack = True
            txtApMCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_5")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_5"))
            txtApMCarga5.UpdateAfterCallBack = True
            txtFNCarga5.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_5") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_5"))
            txtFNCarga5.UpdateAfterCallBack = True
            LblCargaFecha5.Visible = False
            LblCargaFecha5.UpdateAfterCallBack = True
            cmbParentescoCarga5.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_5")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_5"))
            cmbParentescoCarga5.UpdateAfterCallBack = True


            txtRutCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("RutCarga_6")), "", rp.Ds.Tables(0).Rows(0).Item("RutCarga_6")) & "-" & IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_6")), "", rp.Ds.Tables(0).Rows(0).Item("DV_RutCarga_6"))
            txtRutCarga6.UpdateAfterCallBack = True
            txtNombreCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Nombre_6")), "", rp.Ds.Tables(0).Rows(0).Item("Nombre_6"))
            txtNombreCarga6.UpdateAfterCallBack = True
            txtApPCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_6")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Pat_6"))
            txtApPCarga6.UpdateAfterCallBack = True
            txtApMCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_6")), "", rp.Ds.Tables(0).Rows(0).Item("Ape_Mat_6"))
            txtApMCarga6.UpdateAfterCallBack = True
            txtFNCarga6.Text = IIf(rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_6") = "01/01/1900", "", rp.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_6"))
            txtFNCarga6.UpdateAfterCallBack = True
            LblCargaFecha6.Visible = False
            LblCargaFecha6.UpdateAfterCallBack = True
            cmbParentescoCarga6.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_6")), "", rp.Ds.Tables(0).Rows(0).Item("ID_Parentesco_6"))
            cmbParentescoCarga6.UpdateAfterCallBack = True


        End If
    End Sub


    Private Sub ObtieneDatosTMP()
        Dim exec As New BusinessCatastrofico.TMP_VentaSeguro
        Dim rp As New NetResponse.MsSqlServer
        exec._IDSeguro = txtIDSeguro.Text
        exec.Get_TMP_VentaSeguro(rp)
        If rp.TieneDatos Then

            txtRutEjecutivo.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_vendedor") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_vendedor")
            txtNombreEjecutivo.Text = rp.Ds.Tables(0).Rows(0).Item("Nombre_Vendedor")
            txtCUI.Text = rp.Ds.Tables(0).Rows(0).Item("CUI")



            txtRutContratante.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_Contratante") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Contratante")
            txtNombreContratante.Text = rp.Ds.Tables(0).Rows(0).Item("Nombre_Contratante")



            txtRutAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("Rut_Asegurado") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Asegurador")
            txtNombresAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("Nombre_Asegurado")
            txtApellidoPaternoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("ApellidoPaterno_Asegurado")
            txtApellidoMaternoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("ApellidoMaterno_Asegurado")
            opSexo.SelectedValue = rp.Ds.Tables(0).Rows(0).Item("Sexo")
            txtFechaNacimientoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("FechaNacimiento_Asegurado")


            txtCalleDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Calle")
            txtNroDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("NroCalle")
            txtDeptoDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("NroDepartamento")
            txtVillaDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("VillaPoblacion")
            cbCiudadDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("NombreCiudad")
            cbComunaDespacho.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreComuna")), "", rp.Ds.Tables(0).Rows(0).Item("NombreComuna"))
            txtTelefonoDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Telefono")
            txtCelularDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Celular")
            txtMailDespacho.Text = rp.Ds.Tables(0).Rows(0).Item("Correo")

            txtFechaPrimerCargo.Text = rp.Ds.Tables(0).Rows(0).Item("FechaPrimerCargo")

            cbBanco.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreBanco")), "", rp.Ds.Tables(0).Rows(0).Item("NombreBanco")) 'rp.Ds.Tables(0).Rows(0).Item("NombreBanco")
            cbMDP.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreProducto")), "", rp.Ds.Tables(0).Rows(0).Item("NombreProducto")) 'rp.Ds.Tables(0).Rows(0).Item("NombreProducto")
            cbCuentas.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")) 'rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")
            'OJO    cbTipoTarjeta.Text = rp.Ds.Tables(0).Rows(0).Item("Correo")
            txtNroProducto.Text = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")), "", rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")) 'rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")
            If rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH") <> "BCH" Then
                txtNroProducto.Visible = True
                cbCuentas.Visible = False
                txtNroProducto.UpdateAfterCallBack = True
                cbCuentas.UpdateAfterCallBack = True
            Else
                cbCuentas.Visible = True
                cbCuentas.UpdateAfterCallBack = True
                txtNroProducto.Visible = False
                txtNroProducto.UpdateAfterCallBack = True
            End If

            txtTotalAnual.Text = rp.Ds.Tables(0).Rows(0).Item("ValorCuota")
            txtTotalAnual.AutoUpdateAfterCallBack = True
            txtVigenciaDesde.Text = rp.Ds.Tables(0).Rows(0).Item("FechaDesde")
            txtVigenciaDesde.AutoUpdateAfterCallBack = True
            txtVigenciaHasta.Text = rp.Ds.Tables(0).Rows(0).Item("FechaHasta")
            txtVigenciaHasta.AutoUpdateAfterCallBack = True
            txtFechaNacimientoAsegurado.ReadOnly = True
            'txtFechaNacimientoAsegurado.Text = rp.Ds.Tables(0).Rows(0).Item("FechaNacimiento_Asegurado")
            'txtFechaNacimientoAsegurado.AutoUpdateAfterCallBack = True
            txtNroCuotas.Text = rp.Ds.Tables(0).Rows(0).Item("CantidadCuota")
            txtNroCuotas.AutoUpdateAfterCallBack = True
            txtValorPrimaAnual.Text = rp.Ds.Tables(0).Rows(0).Item("Total")
            txtValorPrimaAnual.AutoUpdateAfterCallBack = True
            txtPlan.Text = rp.Ds.Tables(0).Rows(0).Item("Plan1")
            txtPlan.AutoUpdateAfterCallBack = True

            iNroCarga = rp.Ds.Tables(0).Rows(0).Item("CargasS")
            ViewState("Carga") = rp.Ds.Tables(0).Rows(0).Item("CargasS")
            szPoliza = rp.Ds.Tables(0).Rows(0).Item("Producto_Salud")

            ViewState("szPoliza") = rp.Ds.Tables(0).Rows(0).Item("Producto_Salud")



            txtRutEjecutivo.AutoUpdateAfterCallBack = True
            txtNombreEjecutivo.AutoUpdateAfterCallBack = True
            txtCUI.AutoUpdateAfterCallBack = True


            txtRutContratante.AutoUpdateAfterCallBack = True
            txtNombreContratante.AutoUpdateAfterCallBack = True


            txtRutAsegurado.AutoUpdateAfterCallBack = True
            txtNombresAsegurado.AutoUpdateAfterCallBack = True
            txtApellidoPaternoAsegurado.AutoUpdateAfterCallBack = True
            txtApellidoMaternoAsegurado.AutoUpdateAfterCallBack = True
            opSexo.AutoUpdateAfterCallBack = True
            txtFechaNacimientoAsegurado.AutoUpdateAfterCallBack = True

            txtCalleDespacho.AutoUpdateAfterCallBack = True
            txtNroDespacho.AutoUpdateAfterCallBack = True
            txtDeptoDespacho.AutoUpdateAfterCallBack = True
            txtVillaDespacho.AutoUpdateAfterCallBack = True
            cbCiudadDespacho.AutoUpdateAfterCallBack = True
            cbComunaDespacho.AutoUpdateAfterCallBack = True
            txtMailDespacho.AutoUpdateAfterCallBack = True

            txtFechaPrimerCargo.AutoUpdateAfterCallBack = True

            cbBanco.AutoUpdateAfterCallBack = True
            cbMDP.AutoUpdateAfterCallBack = True
            cbCuentas.AutoUpdateAfterCallBack = True
            cbTipoTarjeta.AutoUpdateAfterCallBack = True
            txtNroProducto.AutoUpdateAfterCallBack = True


        End If
        If rp.Errores Then
        End If
        rp.Dispose()
        exec.Dispose()
    End Sub

    Protected Sub btVolver_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btVolver.Click
        Dim szURL As String
        szURL = "frm_IngresoDatos.aspx?IDSeguro=" & txtIDSeguro.Text & "&Carga=" & ViewState("Carga").ToString
        Response.Redirect(szURL)

    End Sub

    Protected Sub btAceptar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btAceptar.Click
        'Dim szFolio As String
        'szFolio = ""
        'If ObtenerFolio(szFolio) Then
        '    GrabaFolio(szFolio)
        '    GrabaConfirmacionVenta()
        'End If
        'Construir_XML()
        Dim szFolio As String
        szFolio = ""
        If ObtenerFolio(szFolio) Then
            GrabaFolio(szFolio)
            GrabaConfirmacionVenta()
        End If
        Construir_XML()

        'Anthem.Manager.AddScriptForClientSideEval("alert('Se genero la siguiente Poliza : " & szFolio & "');")

        Dim szURL As String
        szURL = "frm_ComprobanteIngreso.aspx?Folio=" & szFolio
        Response.Redirect(szURL)

    End Sub

    Private Function GrabaFolio(ByVal szFolio As String)
        Dim exec As New BusinessCatastrofico.Venta
        Dim rp As New NetResponse.MsSqlServer

        exec._IDSeguro = txtIDSeguro.Text
        exec._FolioSalud = szFolio

        exec.Put_FolioSalud(rp)

        If rp.TieneDatos Then
        
        End If
        If rp.Errores Then
        End If

        rp.Dispose()
        exec.Dispose()
    End Function


    Private Function GrabaConfirmacionVenta()
        Dim exec As New BusinessCatastrofico.Venta
        Dim rp As New NetResponse.MsSqlServer

        exec._IDSeguro = txtIDSeguro.Text

        exec.Put_VentaConfirmada(rp)

        If rp.TieneDatos Then

        End If
        If rp.Errores Then
        End If

        rp.Dispose()
        exec.Dispose()
    End Function


    Private Function ObtenerFolio(ByRef szFolio As String) As Boolean


        Dim CSrm As SrmConector
        Dim arr_Datos()
        Dim szCompannia As String

        Dim SRM_Nodo_Ejecutivo = ConfigurationManager.AppSettings.GetValues("SRM_Nodo_Ejecutivo")

        szCompannia = ""

        Try
            Dim szDatosCliente As String

            ObtenerFolio = False

            CSrm = New SrmConector
            With CSrm
                .Nodo = "U067"
                .Aplicacion = "SCS0"
                .Contexto = "00"
                .Tipo = "08" 'cantidad de kilos
                '.Mensaje = "12345789L063V0009" + szRut 
                .Mensaje = "012488347111101" & ViewState("szPoliza") & "BSV" & "00000"
            End With

            If CSrm.Invoke Then
                szDatosCliente = CSrm.Respuesta
                If Mid(szDatosCliente, 1, 2) = "00" Then
                    arr_Datos = Split(szDatosCliente, "~")
                    If arr_Datos.Length > 1 Then
                        ObtenerFolio = True
                        szFolio = arr_Datos(1).ToString
                    End If
                End If
            End If
        Catch ex As Exception
        End Try

    End Function
    Sub Construir_XML()

        Dim docXml As New System.Xml.XmlDocument
            Dim xmlStr As String
            Dim iCarga As Integer

            Dim exec As New BusinessCatastrofico.TMP_VentaSeguro
            Dim rp As New NetResponse.MsSqlServer
            exec._IDSeguro = txtIDSeguro.Text
            exec.Get_TMP_VentaSeguro(rp)
            If rp.TieneDatos Then

                xmlStr = "<MAESTRO>"
                xmlStr = xmlStr & "<CATALOGO>"
                xmlStr = xmlStr & "<TIPO_PRODUCTO>SALUD CATASTRÓFICO </TIPO_PRODUCTO>"
                xmlStr = xmlStr & "<CODIGO_RAMO>1</CODIGO_RAMO>"
                xmlStr = xmlStr & "<NOMBRE_RAMO>VIDA</NOMBRE_RAMO>"
                xmlStr = xmlStr & "<CODIGO_TIPO>1</CODIGO_TIPO>"
                xmlStr = xmlStr & "<NOMBRE_TIPO>VIDA</NOMBRE_TIPO>"
                xmlStr = xmlStr & "<CODIGO_PRODUCTO>148</CODIGO_PRODUCTO>"
                xmlStr = xmlStr & "<NOMBRE_PRODUCTO> SALUD CATASTRÓFICO </NOMBRE_PRODUCTO>"
                xmlStr = xmlStr & "</CATALOGO>"

                xmlStr = xmlStr & "<IDENTIFICACION>"
                xmlStr = xmlStr & "<OFICINA>1</OFICINA>"
            xmlStr = xmlStr & "<FOLIO></FOLIO>"
            xmlStr = xmlStr & "<RUT_EJECUTIVO></RUT_EJECUTIVO>"
            xmlStr = xmlStr & "<CUI></CUI>"
            xmlStr = xmlStr & "<CODIGO_EJECUTIVO></CODIGO_EJECUTIVO>"
                xmlStr = xmlStr & "</IDENTIFICACION>"


                xmlStr = xmlStr & "<CONTRATANTE>"
            xmlStr = xmlStr & "<RUT></RUT>"
            xmlStr = xmlStr & "<NOMBRE_APELLIDOS></NOMBRE_APELLIDOS>"
            xmlStr = xmlStr & "<DIRECCION></DIRECCION>"
            xmlStr = xmlStr & "<CALLE_CONTRATANTE></CALLE_CONTRATANTE>"
            xmlStr = xmlStr & "<NUM_CALLE_CONTRATANTE></NUM_CALLE_CONTRATANTE>"
            xmlStr = xmlStr & "<NUM_DEPTO_CONTRATANTE></NUM_DEPTO_CONTRATANTE>"
            xmlStr = xmlStr & "<VILLA_CONTRATANTE></VILLA_CONTRATANTE>"
            xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
            xmlStr = xmlStr & "<COMUNA></COMUNA>"
            xmlStr = xmlStr & "<CIUDAD></CIUDAD>"
            xmlStr = xmlStr & "<TELEFONO></TELEFONO>"
            xmlStr = xmlStr & "<FAX></FAX>"
                xmlStr = xmlStr & "</CONTRATANTE>"

                xmlStr = xmlStr & "<ASEGURADO>"
            xmlStr = xmlStr & "<RUT></RUT>"
            xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
            xmlStr = xmlStr & "<PATERNO></PATERNO>"
            xmlStr = xmlStr & "<MATERNO></MATERNO>"
            xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                xmlStr = xmlStr & "<OCUPACION />"
                xmlStr = xmlStr & "<OCUPACION_SECUNDARIA />"
                xmlStr = xmlStr & "</ASEGURADO>"


                xmlStr = xmlStr & "<PLAN_ELEGIDO>"
                xmlStr = xmlStr & "<TIPO_PRODUCTO_PLAN> VIDA/SALUD CATASTRÓFICO </TIPO_PRODUCTO_PLAN>"
            xmlStr = xmlStr & "<NOMBRE_PLAN></NOMBRE_PLAN>"
            xmlStr = xmlStr & "<CUOTA_MENSUAL></CUOTA_MENSUAL>"
            xmlStr = xmlStr & "<PRIMA_ANUAL></PRIMA_ANUAL>"
                xmlStr = xmlStr & "<CAPITALASEGURADO />"
                xmlStr = xmlStr & "<PRIMAMINIMAMENSUAL />"
                xmlStr = xmlStr & "<PRIMAEXCESOPACTADA />"
                xmlStr = xmlStr & "<PRIMAEXCESONOPACTADA />"
                xmlStr = xmlStr & "<PRIMAPROYECTADA />"
                xmlStr = xmlStr & "<PRIMAMINIMAANUAL />"
                xmlStr = xmlStr & "<PRIMAENEXCESOANUAL />"
                xmlStr = xmlStr & "<PRIMAPROYECTADAANUAL />"
                xmlStr = xmlStr & "<INTERESPROYECTADO />"
                xmlStr = xmlStr & "<MONEDA_PLAN />"

                xmlStr = xmlStr & "<COBERTURAS>"
                xmlStr = xmlStr & "<COBERTURA>"
                xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                xmlStr = xmlStr & "<DESCRIPCION></DESCRIPCION>"
                xmlStr = xmlStr & "<VALOR></VALOR>"
                xmlStr = xmlStr & "</COBERTURA>"
                'xmlStr = xmlStr & "<COBERTURA codCobertura='403'>"
                'xmlStr = xmlStr & "<NOMBRE>Robo y Asistencia Robo (403)</NOMBRE>"
                'xmlStr = xmlStr & "<DESCRIPCION>Robo y Asistencia Robo (403)</DESCRIPCION>"
                'xmlStr = xmlStr & "<VALOR>1648 UF</VALOR>"
                'xmlStr = xmlStr & "</COBERTURA>"
                'xmlStr = xmlStr & "<COBERTURA codCobertura='404'>"
                'xmlStr = xmlStr & "<NOMBRE>Cobertura Sismo (404)</NOMBRE>"
                'xmlStr = xmlStr & "<DESCRIPCION>Cobertura Sismo (404)</DESCRIPCION>"
                'xmlStr = xmlStr & "<VALOR>1648 UF</VALOR>"
                'xmlStr = xmlStr & "</COBERTURA>"
                xmlStr = xmlStr & "</COBERTURAS>"

                xmlStr = xmlStr & "<VIGENCIA>"
                xmlStr = xmlStr & "<DESDE></DESDE>"
                xmlStr = xmlStr & "<HASTA></HASTA>"
                xmlStr = xmlStr & "</VIGENCIA>"
                xmlStr = xmlStr & "<PROYECCIONES>"
                xmlStr = xmlStr & "<PROYECCION />"
                xmlStr = xmlStr & "</PROYECCIONES>"
                xmlStr = xmlStr & "</PLAN_ELEGIDO>"
                xmlStr = xmlStr & "<COTIZACION />"
                xmlStr = xmlStr & "<FORMA_PAGO>"
                xmlStr = xmlStr & "<COMPANIA>Banchile Seguros de Vida</COMPANIA>"
                xmlStr = xmlStr & "<FECHA_PAGO_PRIMERA_CUOTA></FECHA_PAGO_PRIMERA_CUOTA>"
                xmlStr = xmlStr & "<NUMERO_CUOTAS>12</NUMERO_CUOTAS>"
                xmlStr = xmlStr & "<FECHA_VENCIMIENTO></FECHA_VENCIMIENTO>"
                xmlStr = xmlStr & "<FECHA_SUSCRIPCION></FECHA_SUSCRIPCION>"
                xmlStr = xmlStr & "<MEDIOS_PAGOS>"
                xmlStr = xmlStr & "<BANCOCHILE>"
                'xmlStr = xmlStr & "Si el medio de pago es Cta Cte Banco de Chile, debe ir deben ir estos valores:"
                xmlStr = xmlStr & "<FLAG_SELECCIONADO></FLAG_SELECCIONADO>"
                xmlStr = xmlStr & "<NUMERO_CUENTA></NUMERO_CUENTA>"
                xmlStr = xmlStr & "<TIPO_CUENTA></TIPO_CUENTA>"
                xmlStr = xmlStr & "</BANCOCHILE>"
                'xmlStr = xmlStr & "Si el medio de pago es Otros Bancos, deben ir deben ir estos valores:"
                xmlStr = xmlStr & "<OTRO_BANCO>"
                xmlStr = xmlStr & "<FLAG_SELECCIONADO></FLAG_SELECCIONADO>"
                xmlStr = xmlStr & "<NUMERO_CUENTA></NUMERO_CUENTA>"
                xmlStr = xmlStr & "<TIPO_CUENTA />"
                xmlStr = xmlStr & "<NOMBRE_BANCO></NOMBRE_BANCO>"
                xmlStr = xmlStr & "</OTRO_BANCO>"
                'Si el medio de pago es TARJETA (Banco de Chile o no)
                xmlStr = xmlStr & "<TARJETA_CREDITO>"
                xmlStr = xmlStr & "<FLAG_SELECCIONADO></FLAG_SELECCIONADO>"
                xmlStr = xmlStr & "<NUMERO_VISA></NUMERO_VISA>"
                xmlStr = xmlStr & "<NOMBRE_BANCO></NOMBRE_BANCO>"
                'Dependiendo del tipo de tarjeta, se debe indicar X donde corresponde
                xmlStr = xmlStr & "<FLAG_VISA />"
                xmlStr = xmlStr & "<FLAG_MASTERCARD />"
                xmlStr = xmlStr & "<FLAG_DINERS></FLAG_DINERS>"
                xmlStr = xmlStr & "<FLAG_MAGNA />"
                xmlStr = xmlStr & "<FECHA_VENCIMIENTO></FECHA_VENCIMIENTO>"
                xmlStr = xmlStr & "</TARJETA_CREDITO>"
                xmlStr = xmlStr & "</MEDIOS_PAGOS>"
                xmlStr = xmlStr & "</FORMA_PAGO>"

                'Beneficiarios
                xmlStr = xmlStr & "<DATOS_VIDA>"

            iCarga = Request("Carga") 'rp.Ds.Tables(0).Rows(0).Item("CargasS")

                If iCarga = 0 Then
                    xmlStr = xmlStr & "<BENEFICIARIO />"
                End If

                If iCarga >= 1 Then
                    xmlStr = xmlStr & "<BENEFICIARIO numBeneficiario='1'>"
                    xmlStr = xmlStr & "<RUT></RUT>"
                    xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                    xmlStr = xmlStr & "<PATERNO></PATERNO>"
                    xmlStr = xmlStr & "<MATERNO></MATERNO>"
                    xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                    xmlStr = xmlStr & "<PARENTESCO></PARENTESCO>"
                    xmlStr = xmlStr & "<PORCENTAJE></PORCENTAJE>"
                    xmlStr = xmlStr & "</BENEFICIARIO>"

                    'Dim Rut_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/RUT")
                    'Dim Nombre_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/NOMBRE")
                    'Dim Paterno_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/PATERNO")
                    'Dim Materno_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/MATERNO")
                    'Dim FechaNacimiento_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/FECHA_NACIMIENTO")
                    'Dim Patentesco_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/PARENTESCO")
                    'Dim Porcentaje_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='1']/PORCENTAJE")
                End If

                If iCarga >= 2 Then
                    xmlStr = xmlStr & "<BENEFICIARIO numBeneficiario='2'>"
                    xmlStr = xmlStr & "<RUT></RUT>"
                    xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                    xmlStr = xmlStr & "<PATERNO></PATERNO>"
                    xmlStr = xmlStr & "<MATERNO></MATERNO>"
                    xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                    xmlStr = xmlStr & "<PARENTESCO></PARENTESCO>"
                    xmlStr = xmlStr & "<PORCENTAJE></PORCENTAJE>"
                    xmlStr = xmlStr & "</BENEFICIARIO>"

                    'Dim Rut_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/RUT")
                    'Dim Nombre_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/NOMBRE")
                    'Dim Paterno_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/PATERNO")
                    'Dim Materno_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/MATERNO")
                    'Dim FechaNacimiento_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/FECHA_NACIMIENTO")
                    'Dim Patentesco_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/PARENTESCO")
                    'Dim Porcentaje_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='2']/PORCENTAJE")

                End If
                If iCarga >= 3 Then
                    xmlStr = xmlStr & "<BENEFICIARIO numBeneficiario='3'>"
                    xmlStr = xmlStr & "<RUT></RUT>"
                    xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                    xmlStr = xmlStr & "<PATERNO></PATERNO>"
                    xmlStr = xmlStr & "<MATERNO></MATERNO>"
                    xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                    xmlStr = xmlStr & "<PARENTESCO></PARENTESCO>"
                    xmlStr = xmlStr & "<PORCENTAJE></PORCENTAJE>"
                    xmlStr = xmlStr & "</BENEFICIARIO>"

                    'Dim Rut_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/RUT")
                    'Dim Nombre_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/NOMBRE")
                    'Dim Paterno_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/PATERNO")
                    'Dim Materno_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/MATERNO")
                    'Dim FechaNacimiento_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/FECHA_NACIMIENTO")
                    'Dim Patentesco_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/PARENTESCO")
                    'Dim Porcentaje_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='3']/PORCENTAJE")

                End If
                If iCarga >= 4 Then
                    xmlStr = xmlStr & "<BENEFICIARIO numBeneficiario='4'>"
                    xmlStr = xmlStr & "<RUT></RUT>"
                    xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                    xmlStr = xmlStr & "<PATERNO></PATERNO>"
                    xmlStr = xmlStr & "<MATERNO></MATERNO>"
                    xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                    xmlStr = xmlStr & "<PARENTESCO></PARENTESCO>"
                    xmlStr = xmlStr & "<PORCENTAJE></PORCENTAJE>"
                    xmlStr = xmlStr & "</BENEFICIARIO>"

                    'Dim Rut_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/RUT")
                    'Dim Nombre_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/NOMBRE")
                    'Dim Paterno_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/PATERNO")
                    'Dim Materno_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/MATERNO")
                    'Dim FechaNacimiento_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/FECHA_NACIMIENTO")
                    'Dim Patentesco_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/PARENTESCO")
                    'Dim Porcentaje_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='4']/PORCENTAJE")

                End If
                If iCarga >= 5 Then
                    xmlStr = xmlStr & "<BENEFICIARIO numBeneficiario='5'>"
                    xmlStr = xmlStr & "<RUT></RUT>"
                    xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                    xmlStr = xmlStr & "<PATERNO></PATERNO>"
                    xmlStr = xmlStr & "<MATERNO></MATERNO>"
                    xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                    xmlStr = xmlStr & "<PARENTESCO></PARENTESCO>"
                    xmlStr = xmlStr & "<PORCENTAJE></PORCENTAJE>"
                    xmlStr = xmlStr & "</BENEFICIARIO>"

                    'Dim Rut_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/RUT")
                    'Dim Nombre_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/NOMBRE")
                    'Dim Paterno_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/PATERNO")
                    'Dim Materno_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/MATERNO")
                    'Dim FechaNacimiento_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/FECHA_NACIMIENTO")
                    'Dim Patentesco_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/PARENTESCO")
                    'Dim Porcentaje_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='5']/PORCENTAJE")

                End If
                If iCarga >= 6 Then
                    xmlStr = xmlStr & "<BENEFICIARIO numBeneficiario='6'>"
                    xmlStr = xmlStr & "<RUT></RUT>"
                    xmlStr = xmlStr & "<NOMBRE></NOMBRE>"
                    xmlStr = xmlStr & "<PATERNO></PATERNO>"
                    xmlStr = xmlStr & "<MATERNO></MATERNO>"
                    xmlStr = xmlStr & "<FECHA_NACIMIENTO></FECHA_NACIMIENTO>"
                    xmlStr = xmlStr & "<PARENTESCO></PARENTESCO>"
                    xmlStr = xmlStr & "<PORCENTAJE></PORCENTAJE>"
                    xmlStr = xmlStr & "</BENEFICIARIO>"

                    'Dim Rut_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/RUT")
                    'Dim Nombre_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/NOMBRE")
                    'Dim Paterno_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/PATERNO")
                    'Dim Materno_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/MATERNO")
                    'Dim FechaNacimiento_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/FECHA_NACIMIENTO")
                    'Dim Patentesco_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/PARENTESCO")
                    'Dim Porcentaje_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[numBeneficiario='6']/PORCENTAJE")


                End If
                xmlStr = xmlStr & "</DATOS_VIDA>"

                xmlStr = xmlStr & "<DATOS_HOGAR>"
                xmlStr = xmlStr & "<UBICACION_INMUEBLE>"
                xmlStr = xmlStr & "<DIRECCION></DIRECCION>"
                xmlStr = xmlStr & "<CALLE_INMUEBLE></CALLE_INMUEBLE>"
                xmlStr = xmlStr & "<NUM_CALLE_INMUEBLE></NUM_CALLE_INMUEBLE>"
                xmlStr = xmlStr & "<NUM_DEPTO_INMUEBLE></NUM_DEPTO_INMUEBLE>"
                xmlStr = xmlStr & "<VILLA_INMUEBLE></VILLA_INMUEBLE>"
                xmlStr = xmlStr & "<COMUNA></COMUNA>"
                xmlStr = xmlStr & "<CIUDAD></CIUDAD>"
                xmlStr = xmlStr & "<USO_O_DESTINO></USO_O_DESTINO>"
                xmlStr = xmlStr & "<TIPO_CONSTRUCCION></TIPO_CONSTRUCCION>"
                xmlStr = xmlStr & "</UBICACION_INMUEBLE>"
                xmlStr = xmlStr & "<VALOR_CUOTA_CREDITO />"
                xmlStr = xmlStr & "<VALOR_EDIFICIO></VALOR_EDIFICIO>"
                xmlStr = xmlStr & "<VALOR_CONTENIDO></VALOR_CONTENIDO>"
                xmlStr = xmlStr & "<PRIMA_ANUAL></PRIMA_ANUAL>"
                xmlStr = xmlStr & "<PRIMA_MENSUAL></PRIMA_MENSUAL>"
                xmlStr = xmlStr & "</DATOS_HOGAR>"
                xmlStr = xmlStr & "<DATOS_AUTOMOVIL>"
                xmlStr = xmlStr & "<VEHICULO_ASEGURADO />"
                xmlStr = xmlStr & "</DATOS_AUTOMOVIL>"
                xmlStr = xmlStr & "<DATOS_INSPECCION>"
                xmlStr = xmlStr & "<NOMBRE_APELLIDOS></NOMBRE_APELLIDOS>"
                xmlStr = xmlStr & "<DIRECCION></DIRECCION>"
                xmlStr = xmlStr & "<COMUNA></COMUNA>"
                xmlStr = xmlStr & "<CIUDAD></CIUDAD>"
                xmlStr = xmlStr & "<TELEFONO1></TELEFONO1>"
                xmlStr = xmlStr & "<TELEFONO2></TELEFONO2>"
                xmlStr = xmlStr & "<TELEFONO3></TELEFONO3>"
                xmlStr = xmlStr & "<OBSERVACION></OBSERVACION>"
                xmlStr = xmlStr & "</DATOS_INSPECCION>"
                xmlStr = xmlStr & "</MAESTRO>"
                'Cargo el String al Obj Xml
                docXml.LoadXml(xmlStr)


                'Declaro un obj Tipo XmlNode que era directamente el Nodo seleccionado
                'Dim Folio As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/IDENTIFICACION/FOLIO")
                Dim Folio As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/IDENTIFICACION/FOLIO")
                Dim Rut_Ejecutivo As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/IDENTIFICACION/RUT_EJECUTIVO")
                Dim CUI As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/IDENTIFICACION/CUI")

                'Dim FechaNacimientoContratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/FECHA_NACIMIENTO")

                'Modifico el Nodo seleccionado
                ViewState("Folio") = rp.Ds.Tables(0).Rows(0).Item("Folio_Salud")

                Folio.InnerText = rp.Ds.Tables(0).Rows(0).Item("Folio_Salud")
                Rut_Ejecutivo.InnerText = rp.Ds.Tables(0).Rows(0).Item("Rut_Vendedor") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Vendedor")
                CUI.InnerText = rp.Ds.Tables(0).Rows(0).Item("CUI")

                '---------------------------------------------------------------------
                'DATOS CONTRATANTE
                '---------------------------------------------------------------------
                Dim RutContratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/RUT")
                Dim NombreContratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/NOMBRE_APELLIDOS")
                Dim DireccionContratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/DIRECCION")
                Dim CALLE_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/CALLE_CONTRATANTE")
                Dim NUM_CALLE_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/NUM_CALLE_CONTRATANTE")
                Dim NUM_DEPTO_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/NUM_DEPTO_CONTRATANTE")
                Dim VILLA_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/VILLA_CONTRATANTE")
                Dim COMUNA_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/COMUNA")
                Dim CIUDAD_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/CIUDAD")
                Dim TELEFONO_Contratante As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/CONTRATANTE/TELEFONO")




                RutContratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("Rut_Contratante") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Contratante")
            NombreContratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("Nombre_Contratante")
            DireccionContratante.InnerText = ""
                CALLE_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("Calle")
                NUM_CALLE_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("NroCalle")
                NUM_DEPTO_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("NroDepartamento")
                VILLA_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("VillaPoblacion")
                COMUNA_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("NombreComuna")
                CIUDAD_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("NombreCiudad")
                TELEFONO_Contratante.InnerText = rp.Ds.Tables(0).Rows(0).Item("Telefono")

                '---------------------------------------------------------------------
                'DATOS ASEGURADO
                '---------------------------------------------------------------------
                Dim Rut_Asegurado As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/ASEGURADO/RUT")
                Dim Nombre_Asegurado As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/ASEGURADO/NOMBRE")
                Dim Paterno_Asegurado As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/ASEGURADO/PATERNO")
                Dim Materno_Asegurado As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/ASEGURADO/MATERNO")
                Dim FechaNacimiento_Asegurado As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/ASEGURADO/FECHA_NACIMIENTO")

                Rut_Asegurado.InnerText = rp.Ds.Tables(0).Rows(0).Item("Rut_Asegurado") & "-" & rp.Ds.Tables(0).Rows(0).Item("DVRut_Asegurador")
                Nombre_Asegurado.InnerText = rp.Ds.Tables(0).Rows(0).Item("Nombre_Asegurado")
                Paterno_Asegurado.InnerText = rp.Ds.Tables(0).Rows(0).Item("ApellidoPaterno_Asegurado")
                Materno_Asegurado.InnerText = rp.Ds.Tables(0).Rows(0).Item("ApellidoMaterno_Asegurado")
                FechaNacimiento_Asegurado.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaNacimiento_Asegurado")


                '---------------------------------------------------------------------
                'DATOS PLAN ELEJIDO
                '---------------------------------------------------------------------
                Dim TipoProductoPlan As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/PLAN_ELEGIDO/TIPO_PRODUCTO_PLAN")
                Dim NombrePlan As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/PLAN_ELEGIDO/NOMBRE_PLAN")
                Dim CuotaMensualPlan As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/PLAN_ELEGIDO/CUOTA_MENSUAL")
                Dim PrimaAnualPlan As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/PLAN_ELEGIDO/PRIMA_ANUAL")

            TipoProductoPlan.InnerText = "VIDA/SALUD CATASTRÓFICO/" & rp.Ds.Tables(0).Rows(0).Item("Plan1")
                NombrePlan.InnerText = rp.Ds.Tables(0).Rows(0).Item("Plan1")
                CuotaMensualPlan.InnerText = rp.Ds.Tables(0).Rows(0).Item("Total")
                PrimaAnualPlan.InnerText = rp.Ds.Tables(0).Rows(0).Item("ValorCuota")

                '---------------------------------------------------------------------
                'DATOS PLAN ELEJIDO
                '---------------------------------------------------------------------
                Dim Vigencia_Desde As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/PLAN_ELEGIDO/VIGENCIA/DESDE")
                Dim Vigencia_Hasta As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/PLAN_ELEGIDO/VIGENCIA/HASTA")

                Vigencia_Desde.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaDesde")
                Vigencia_Hasta.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaHasta")

                '---------------------------------------------------------------------
                'DATOS FORMA DE PAGO
                '---------------------------------------------------------------------
                Dim Compannia_FormaPago As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/COMPANIA")
                Dim FechaPrimerCargo_FormaPago As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/FECHA_PAGO_PRIMERA_CUOTA")
                Dim NroCuota_FormaPago As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/NUMERO_CUOTAS")
                Dim FechaVencimiento_FormaPago As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/FECHA_VENCIMIENTO")
                Dim FechaSuscripcion_FormaPago As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/FECHA_SUSCRIPCION")

                Compannia_FormaPago.InnerText = "Banchile Seguros de Vida"
                FechaPrimerCargo_FormaPago.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaPrimerCargo")
                NroCuota_FormaPago.InnerText = "12"
                FechaVencimiento_FormaPago.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaHasta")
                FechaSuscripcion_FormaPago.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaDesde")

                If rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH") = "BCH" And rp.Ds.Tables(0).Rows(0).Item("CodMedioPago") = "CTD" Then
                    Dim Flag_MedioPago_BCH As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/BANCOCHILE/FLAG_SELECCIONADO")
                    Dim NroCuenta_BCH As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/BANCOCHILE/NUMERO_CUENTA")
                    Dim TipoCuenta_BCH As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/BANCOCHILE/TIPO_CUENTA")

                    Flag_MedioPago_BCH.InnerText = "X"
                    NroCuenta_BCH.InnerText = rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")
                    TipoCuenta_BCH.InnerText = rp.Ds.Tables(0).Rows(0).Item("CodMedioPago")

                ElseIf rp.Ds.Tables(0).Rows(0).Item("MedioPagoBCH") <> "BCH" And rp.Ds.Tables(0).Rows(0).Item("CodMedioPago") = "CTD" Then
                    Dim Flag_MedioPago_OTRO As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/OTRO_BANCO/FLAG_SELECCIONADO")
                    Dim NroCuenta_OTRO As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/OTRO_BANCO/NUMERO_CUENTA")
                    Dim NombreBanco_OTRO As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/OTRO_BANCO/NOMBRE_BANCO")

                    Flag_MedioPago_OTRO.InnerText = "X"
                    NroCuenta_OTRO.InnerText = rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")
                    NombreBanco_OTRO.InnerText = rp.Ds.Tables(0).Rows(0).Item("NombreBanco")

                End If

                If rp.Ds.Tables(0).Rows(0).Item("CodMedioPago") <> "CTD" Then
                    Dim Flag_MedioPago_Targeta As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/FLAG_SELECCIONADO")
                    Dim NroCuenta_Targeta As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/NUMERO_VISA")
                    Dim NombreBanco_Targeta As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/NOMBRE_BANCO")
                Dim FechaPrimerVencimiento_Targeta As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/FECHA_VENCIMIENTO")

                Dim Flag_Visa As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/FLAG_VISA")
                Dim Flag_Mastercard As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/FLAG_MASTERCARD")
                Dim Flag_Diners As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/FLAG_DINERS")
                Dim Flag_Magna As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/FORMA_PAGO/MEDIOS_PAGOS/TARJETA_CREDITO/FLAG_MAGNA")
            
                    Flag_MedioPago_Targeta.InnerText = "X"
                    NroCuenta_Targeta.InnerText = rp.Ds.Tables(0).Rows(0).Item("NroMedioPago")
                NombreBanco_Targeta.InnerText = IIf(IsDBNull(rp.Ds.Tables(0).Rows(0).Item("NombreBanco")), "", rp.Ds.Tables(0).Rows(0).Item("NombreBanco"))
                FechaPrimerVencimiento_Targeta.InnerText = rp.Ds.Tables(0).Rows(0).Item("FechaPrimerCargo")

                If rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta") = "1" Then
                    Flag_Diners.InnerText = "X"
                ElseIf rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta") = "2" Then
                    Flag_Mastercard.InnerText = "X"
                ElseIf rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta") = "3" Then
                    Flag_Visa.InnerText = "X"
                ElseIf rp.Ds.Tables(0).Rows(0).Item("TipoTarjeta") = "4" Then
                    Flag_Magna.InnerText = "X"
                End If

            End If

            'FechaNacimientoContratante.InnerText = "21/06/1978"

            'Despliegue del xml Modificado
            'Console.Write(docXml.InnerXml)
            'docXml.Save("c:\DevolucionTotal.xml")
        End If
        If rp.Errores Then
        End If
        rp.Dispose()
        exec.Dispose()



        '----------
        'Cargas


        Dim szParentesco As String
        'Dim exec_C As New BusinessCatastrofico.TMP_VentaSeguro
        Dim exec_C As New BusinessCatastrofico.Cargas
        Dim rp_C As New NetResponse.MsSqlServer
        exec_C._IDSeguro = txtIDSeguro.Text
        exec_C.Get_Carga(rp_C)

        If rp_C.TieneDatos Then

            If iCarga >= 1 Then
                Dim Rut_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/RUT")
                Dim Nombre_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/NOMBRE")
                Dim Paterno_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/PATERNO")
                Dim Materno_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/MATERNO")
                Dim FechaNacimiento_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/FECHA_NACIMIENTO")
                Dim Patentesco_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/PARENTESCO")
                Dim Porcentaje_Beneficiario_1 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='1']/PORCENTAJE")

                Rut_Beneficiario_1.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_1")), "", rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_1") & "-" & rp_C.Ds.Tables(0).Rows(0).Item("DV_RutCarga_1"))
                Nombre_Beneficiario_1.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Nombre_1")), "", rp_C.Ds.Tables(0).Rows(0).Item("Nombre_1"))
                Paterno_Beneficiario_1.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_1")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_1"))
                Materno_Beneficiario_1.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_1")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_1"))
                FechaNacimiento_Beneficiario_1.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_1")), "", rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_1"))
                szParentesco = ""
                szParentesco = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_1")), "", rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_1"))
                If szParentesco = "02" Then
                    szParentesco = "Hijo / Hija"
                ElseIf szParentesco = "03" Then
                    szParentesco = "Cónyuge"
                End If
                Patentesco_Beneficiario_1.InnerText = szParentesco
                'Porcentaje_Beneficiario_1.InnerText  ="100"
            End If
            If iCarga >= 2 Then
                Dim Rut_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/RUT")
                Dim Nombre_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/NOMBRE")
                Dim Paterno_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/PATERNO")
                Dim Materno_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/MATERNO")
                Dim FechaNacimiento_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/FECHA_NACIMIENTO")
                Dim Patentesco_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/PARENTESCO")
                Dim Porcentaje_Beneficiario_2 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='2']/PORCENTAJE")
                Rut_Beneficiario_2.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_2")), "", rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_2") & "-" & rp_C.Ds.Tables(0).Rows(0).Item("DV_RutCarga_2"))
                Nombre_Beneficiario_2.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Nombre_2")), "", rp_C.Ds.Tables(0).Rows(0).Item("Nombre_2"))
                Paterno_Beneficiario_2.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_2")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_2"))
                Materno_Beneficiario_2.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_2")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_2"))
                FechaNacimiento_Beneficiario_2.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2")), "", rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_2"))
                szParentesco = ""
                szParentesco = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_2")), "", rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_2"))
                If szParentesco = "02" Then
                    szParentesco = "Hijo / Hija"
                ElseIf szParentesco = "03" Then
                    szParentesco = "Cónyuge"
                End If
                Patentesco_Beneficiario_2.InnerText = szParentesco
                'Porcentaje_Beneficiario_2.InnerText  ="100"

            End If
            If iCarga >= 3 Then
                Dim Rut_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/RUT")
                Dim Nombre_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/NOMBRE")
                Dim Paterno_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/PATERNO")
                Dim Materno_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/MATERNO")
                Dim FechaNacimiento_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/FECHA_NACIMIENTO")
                Dim Patentesco_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/PARENTESCO")
                Dim Porcentaje_Beneficiario_3 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='3']/PORCENTAJE")

                Rut_Beneficiario_3.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_3")), "", rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_3") & "-" & rp_C.Ds.Tables(0).Rows(0).Item("DV_RutCarga_3"))
                Nombre_Beneficiario_3.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Nombre_3")), "", rp_C.Ds.Tables(0).Rows(0).Item("Nombre_3"))
                Paterno_Beneficiario_3.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_3")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_3"))
                Materno_Beneficiario_3.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_3")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_3"))
                FechaNacimiento_Beneficiario_3.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_3")), "", rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_3"))
                szParentesco = ""
                szParentesco = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_3")), "", rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_3"))
                If szParentesco = "02" Then
                    szParentesco = "Hijo / Hija"
                ElseIf szParentesco = "03" Then
                    szParentesco = "Cónyuge"
                End If
                Patentesco_Beneficiario_3.InnerText = szParentesco
                'Porcentaje_Beneficiario_3.InnerText  ="100"
            End If
            If iCarga >= 4 Then
                Dim Rut_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/RUT")
                Dim Nombre_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/NOMBRE")
                Dim Paterno_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/PATERNO")
                Dim Materno_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/MATERNO")
                Dim FechaNacimiento_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/FECHA_NACIMIENTO")
                Dim Patentesco_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/PARENTESCO")
                Dim Porcentaje_Beneficiario_4 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='4']/PORCENTAJE")

                Rut_Beneficiario_4.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_4")), "", rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_4") & "-" & rp_C.Ds.Tables(0).Rows(0).Item("DV_RutCarga_4"))
                Nombre_Beneficiario_4.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Nombre_4")), "", rp_C.Ds.Tables(0).Rows(0).Item("Nombre_4"))
                Paterno_Beneficiario_4.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_4")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_4"))
                Materno_Beneficiario_4.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_4")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_4"))
                FechaNacimiento_Beneficiario_4.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_4")), "", rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_4"))
                szParentesco = ""
                szParentesco = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_4")), "", rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_4"))
                If szParentesco = "02" Then
                    szParentesco = "Hijo / Hija"
                ElseIf szParentesco = "03" Then
                    szParentesco = "Cónyuge"
                End If
                Patentesco_Beneficiario_4.InnerText = szParentesco
                'Porcentaje_Beneficiario_4.InnerText  ="100"
            End If
            If iCarga >= 5 Then
                Dim Rut_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/RUT")
                Dim Nombre_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/NOMBRE")
                Dim Paterno_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/PATERNO")
                Dim Materno_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/MATERNO")
                Dim FechaNacimiento_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/FECHA_NACIMIENTO")
                Dim Patentesco_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/PARENTESCO")
                Dim Porcentaje_Beneficiario_5 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='5']/PORCENTAJE")

                Rut_Beneficiario_5.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_5")), "", rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_5") & "-" & rp_C.Ds.Tables(0).Rows(0).Item("DV_RutCarga_5"))
                Nombre_Beneficiario_5.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Nombre_5")), "", rp_C.Ds.Tables(0).Rows(0).Item("Nombre_5"))
                Paterno_Beneficiario_5.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_5")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_5"))
                Materno_Beneficiario_5.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_5")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_5"))
                FechaNacimiento_Beneficiario_5.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_5")), "", rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_5"))
                szParentesco = ""
                szParentesco = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_5")), "", rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_5"))
                If szParentesco = "02" Then
                    szParentesco = "Hijo / Hija"
                ElseIf szParentesco = "03" Then
                    szParentesco = "Cónyuge"
                End If
                Patentesco_Beneficiario_5.InnerText = szParentesco
                'Porcentaje_Beneficiario_5.InnerText  ="100"
            End If
            If iCarga >= 6 Then
                Dim Rut_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/RUT")
                Dim Nombre_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/NOMBRE")
                Dim Paterno_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/PATERNO")
                Dim Materno_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/MATERNO")
                Dim FechaNacimiento_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/FECHA_NACIMIENTO")
                Dim Patentesco_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/PARENTESCO")
                Dim Porcentaje_Beneficiario_6 As System.Xml.XmlNode = docXml.SelectSingleNode("//MAESTRO/DATOS_VIDA/BENEFICIARIO[@numBeneficiario='6']/PORCENTAJE")
                Rut_Beneficiario_6.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_6")), "", rp_C.Ds.Tables(0).Rows(0).Item("RutCarga_6") & "-" & rp_C.Ds.Tables(0).Rows(0).Item("DV_RutCarga_6"))
                Nombre_Beneficiario_6.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Nombre_6")), "", rp_C.Ds.Tables(0).Rows(0).Item("Nombre_6"))
                Paterno_Beneficiario_6.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_6")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Pat_6"))
                Materno_Beneficiario_6.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_6")), "", rp_C.Ds.Tables(0).Rows(0).Item("Ape_Mat_6"))
                FechaNacimiento_Beneficiario_6.InnerText = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_6")), "", rp_C.Ds.Tables(0).Rows(0).Item("FechaNacimientoCarga_6"))
                szParentesco = ""
                szParentesco = IIf(IsDBNull(rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_6")), "", rp_C.Ds.Tables(0).Rows(0).Item("ID_Parentesco_6"))
                If szParentesco = "02" Then
                    szParentesco = "Hijo / Hija"
                ElseIf szParentesco = "03" Then
                    szParentesco = "Cónyuge"
                End If
                Patentesco_Beneficiario_6.InnerText = szParentesco
                'Porcentaje_Beneficiario_6.InnerText  ="100"

            End If

        End If
        If rp_C.Errores Then
        End If
        rp_C.Dispose()
        'exec_C.Dispose()

        'Despliegue del xml Modificado

        Dim strSystem = ConfigurationManager.AppSettings.GetValues("strSystem")
        Dim strPlt = ConfigurationManager.AppSettings.GetValues("strPlt")
        Dim pathPDF = ConfigurationManager.AppSettings.GetValues("pathPDF")
        Dim PathXML = ConfigurationManager.AppSettings.GetValues("PathXML")
        Dim szPathPDF As String
        Dim szPathXML As String


        szPathPDF = pathPDF(0).ToString & ViewState("Folio").ToString.Trim & ".PDF"
        szPathXML = PathXML(0).ToString & ViewState("Folio").ToString.Trim & ".xml"

        docXml.Save(szPathXML)


        Dim objPrint As New PrintServer.FOPPdfDriver

        If Not objPrint.ExecutePdf(strSystem(0).ToString, strPlt(0).ToString, szPathXML, szPathPDF) Then
            Anthem.Manager.AddScriptForClientSideEval("alert('Error al Generar PDF');")
        End If
        objPrint = Nothing

        Anthem.Manager.AddScriptForClientSideEval("window.open('PDF/" & ViewState("Folio").ToString.Trim & ".PDF" & "','PDF','status=1')")

    End Sub
End Class